home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9204a.d64 / ungeduld. input (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  41 lines
  1. 10 PRINT"[147]UNGEDULDIGES INPUT  WIRD INSTALLIERT
  2. 15 [143] FREI NACH COMPUTE!'S GAZETTE JUNI 87, A.CHANDLER
  3. 16 [143] STARK UEBERARBEITET VON NIKOLAUS HEUSLER
  4. 20 A[178][194](55)[170][194](56)[172]256
  5. 30 A[178]A[171]160:H[178][181](A[173]256):[151]55,A[171]256[172]H:[151]56,H
  6. 40 [151]766,A[171]256[172]H:[151]767,H
  7. 50 [135]V:[151]A[170]I,V:T[178]T[170]V:I[178]I[170]1:[139]I[179]159[167]50
  8. 60 [139]T[177][179]19491[167][153]"PRUEFSUMMENFEHLER!":[128]
  9. 70 A[178]A[170]100:H[178][181](A[173]256):[151]1020,76:[151]1021,A[171]256[172]H:[151]1022,H
  10. 80 [153]"INSTALLATION ABGESCHLOSSEN!"[166]53)"NIKOLAUS HEUSLER (C) NH-210490-ARR
  11. 90 GOTO 200 : REM NEW
  12. 100 DATA72,138,72,152,72,198,250,208,79,169,60,133,250,165,252,141,24,212,165,251
  13. 102 DATA141,38,216,141,39,216,169,32,141,38,4,141,39,4,165,253,72,74,74,74,74,9
  14. 104 DATA48,201,48,240,3,141,38,4,104,41,15,9,48,141,39,4,169,,141,24,212,165,253
  15. 106 DATA248,56,233,1,133,253,216,201,153,208,12,162,,134,254,232,134,198,169,13
  16. 108 DATA141,119,2,104,168,104,170,104,76,158,2,234,234,234,234,234,234,173,20,3
  17. 110 DATA141,159,2,173,21,3,141,160,2,165,253,240,11,170,248,169,,24,105,1,202,208
  18. 112 DATA250,216,133,253,169,1,133,250,133,254,169,76,141,158,2,120,173,254,2,141
  19. 114 DATA20,3,173,255,2,141,21,3,88,96,0,0
  20. 200 POKE53280,6:POKE53281,6:PRINT"[144][147]":COL=1:VOL=8:TA=10
  21. 210 PRINT"BEANTWORTEN SIE IN 10 SEKUNDEN -
  22. 220 [153]"VON WELCHER MARKE IST DIESER COMPUTER ?
  23. 230 GOSUB5000:INPUTA$:GOSUB5100:PRINT
  24. 240 IFFLGTHEN260
  25. 245 IFA$="COMMODORE"THENPRINT"RICHTIG, ABER SIE HABEN VERGESSEN, DIE
  26. 246 [139]A$[178]"COMMODORE"[167][153]"RETURN-TASTE ZU DRUECKEN!":[137]280
  27. 250 [153]"SORRY! DAS DAUERTE ZU LANG.":[141]5200:[137]280
  28. 260 [139]A$[178]"COMMODORE"[167][153]"RICHTIG! ES WAREN NOCH"TR"SEK. UEBRIG.":[137]280
  29. 270 [153]"LEIDER FALSCH!
  30. 280 END
  31. 5000 REM TIMER AKTIVIEREN
  32. 5010 POKE251,COL:POKE252,VOL:POKE253,TA:SYS1020:RETURN
  33. 5100 REM TIMER OFF
  34. 5110 SYS65418:POKE1062,32:POKE1063,32:TR=1+PEEK(253)-INT(PEEK(253)/16)*6
  35. 5120 IFTR=100THENTR=.
  36. 5130 FLG=PEEK(254):RETURN
  37. 5200 REM GONG
  38. 5210 S=54272:FORL=.TO24:POKES+L,.:NEXT:POKES+1,130:POKES+5,9:POKES+15,30
  39. 5220 POKES+24,VOL:POKES+4,21:FORT=1TO300:NEXT:POKES+4,20
  40. 5230 FORT=1TO500:NEXT:FORL=.TO24:POKES+L,.:NEXT:RETURN
  41.